home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor1
/
spkr.src
< prev
next >
Wrap
Text File
|
1991-05-29
|
4KB
|
120 lines
%%HP: T(3)A(D)F(.);
@ SPKR, by William K. McFadden
DIR
CB
DIR
RESPONSE 'dBMAG=20*LOG(SQ(F/Fb)/\v/(SQ(SQ(F/Fb)-1)+SQ(F/Fb/Qb)))'
DESIGN.EQ { 'Vb=Vas/Vr' 'Fb=Qr*Fs'
'F3dB=Qr*Fs*\v/((1/Qb^2-2+\v/((1/Qb^2-2)^2+4))/2)' 'dBPEAK=20*LOG(AMAX)'
'AMAX=IFTE(Qb>INV(\v/2),SQ(Qb)/\v/(SQ(Qb)-.25),1)' 'Vr=Qr^2-1' 'Qr=Qb/Qts'
'Par=(4*\pi^3*1.18_kg/m^3)*Fb^4*Vd^2/((345_m/s)*AMAX^2)'
'PeakSPL=112_dB+10*LOG(UVAL(UBASE(Par)))' 'Per=Par/\Gno'
'\Gno=10^((SPL-112_dB)/10)' 'Vd=Sd*xmax''Sd=\pi*(DIA*.83)^2/4' }
Vas '10.7_ft^3'
Qts .33
Fs '30_Hz'
SPL '95_dB'
DIA '18_in'
xmax '.216_in'
Vb '2.97936589107_ft^3'
Qb .707106781188
Fb '64.2824346534_Hz'
F3dB '64.2824346532_Hz'
dBPEAK '0_dB'
Par '2.78890515059_W'
PeakSPL '116.454337444_dB'
Per '139.776365727_W'
\Gno '1.99526231497_Percent'
Sd '175.303697504_in^2'
Vd '37.8655986609_in^3'
AMAX 1
Vr 3.59136822774
Qr 2.14274782178
dBMAG '-3.01029995662_dB'
F '40_Hz'
EQ RESPONSE
Mpar Library Data
PPAR { (0,-10) (200,5) F 0 (0,0) FUNCTION Y }
EQUALIZER
DIR
F3dB 20
f 20
CIRCUIT
\<< RCLF CLLCD 2 ENG "R1=" '1.0824/(C1*\Gw1)' \->NUM \->STR +
" R8 =" + '(1-k)/k*R10' \->NUM \->STR + 1 DISP "R2=" '.9239/(C1*\Gw1)'
\->NUM \->STR + " R9 =" + '(1-k)/ABS(m)*R10' \->NUM \->STR + 2 DISP "R3="
'2.613/(C2*\Gw1)' \->NUM \->STR + " R10 =" + R10 \->STR + 3 DISP "R4="
'.3827/(C2*\Gw1)' \->NUM \->STR + " R11 \>=" + '2*n/(\Gw1*C3)' \->NUM
\->STR + 4 DISP "R5=" 'ABS(m)*R6' \->NUM \->STR + " C1-3=" + 1 ENG C
\->STR + 5 DISP 2 ENG "R6=" R6 \->STR + " C4 \>=" + '2*n*C3' \->NUM
\->STR + 6 DISP "R7=" '1/(\Gw1*C3)' \->NUM \->STR + 1 ENG " m= " + m
\->NUM \->STR + 7 DISP 3 FREEZE STOF
\>>
R 22000
C .000001
n 25
RESPONSE 'dB=20*LOG(ABS(F(s)))'
dB 17.3121294002
R6 R
R10 R
C3 C
C2 C
C1 C
EQ RESPONSE
PPAR { (0,-6) (100,20) f 0 (0,0) FUNCTION dB }
H2
\<< \-> s '(s/\Gw1)^2/((s/\Gw1)^2+1.8478*s/\Gw1+1)'
\>>
H1
\<< \-> s '(s/\Gw1)^2/((s/\Gw1)^2+.7654*s/\Gw1+1)'
\>>
\Gw '2*\pi*f'
s 'i*\Gw'
\Gwc '2*\pi*Fb/1_Hz'
\Gw1 '2*\pi*F3dB'
k '1-(\Gw1/\Gwc)^2'
m '\Gw1/(Qb*\Gwc)-.7654'
F
\<< \-> s '1/(1-k)*(1-k*H1(s)+m*(\Gw1/s)*H1(s))*H2(s)'
\>>
CST { F3dB CIRCUIT R C n }
END
CST { EQUALIZER }
END
PORTED
DIR
RESPONSE 'dBMAG=20*LOG(SQ(SQ(F/Fs))/\v/(SQ(SQ(SQ(F/Fs))-(1+SQ(Fb/Fs)+
Fb/(7*Fs*Qts)+Vas/Vb)*SQ(F/Fs)+SQ(Fb/Fs))+SQ((SQ(Fb/Fs)/Qts+Fb/(7*Fs))*(F/Fs)-
(1/Qts+Fb/(7*Fs))*(F/Fs)^3)))'
DESIGN.EQ { 'Vb=15*Qts^2.87*Vas' 'Fb=(Vas/Vb)^.32*Fs'
'F3dB=\v/(Vas/Vb)*Fs' 'dBPEAK=20*LOG(2.6*Qts*(Vas/Vb)^.35)'
'\Gno=10^((SPL-112)/10)' 'Sd=\pi*(DIA*.83)^2/4' 'Vd=Sd*xmax'
'Par=(3_kg*s/m^4)*F3dB^4*Vd^2' 'PeakSPL=112_dB+10*LOG(UVAL(UBASE(Par)))'
'Per=Par/\Gno' }
Vas '10.7_ft^3'
Qts .33
Fs '30_Hz'
SPL '95_dB'
DIA '18_in'
xmax '.216_in'
Vb '6.66208307846_ft^3'
Fb '34.9115273652_Hz'
F3dB '38.019650607_Hz'
dBPEAK '.11016189141_dB'
Par '2.41349106451_W'
PeakSPL '115.826456953_dB'
Per '120.961091001_W'
\Gno '1.99526231497_Percent'
Sd '175.303697504_in^2'
Vd '37.8655986609_in^3'
dBMAG '-19.8795577277_dB'
F '20_Hz'
Mpar Library Data
PPAR { (0,-10) (200,3) F 0 (0,0) FUNCTION Y }
EQ RESPONSE
CST { }
END
Percent .01
CST { CB PORTED }
END